home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 3 / ACE CD 3.iso / files / utils / amige312.dms / in.adf / Src2 / Tools / Async / histogram.e < prev    next >
Encoding:
Text File  |  1992-09-02  |  752 b   |  37 lines
  1. /*
  2.  
  3.     histogram.e                   Michael Zucchi 1993
  4.  
  5.     Gives a population count for each byte in a file.
  6.  
  7.  */
  8.  
  9. MODULE 'tools/async', 'dos/dos'
  10.  
  11. DEF counts[300]:ARRAY OF LONG;
  12.  
  13. PROC main()
  14.  
  15. DEF in,args:PTR TO LONG,rdargs,start:PTR TO CHAR,size,i;
  16.  
  17. args:=[0];
  18. IF rdargs:=ReadArgs('Name/A', args, 0)
  19.     IF (in:=as_Open(args[0],MODE_OLDFILE,3,5120))
  20.         REPEAT
  21.             start,size := as_NextBuffer(in);
  22.             IF start>0
  23.                 FOR i:=0 TO size-1
  24.                     counts[start[i]]:=counts[start[i]]+1;
  25.                 ENDFOR
  26.             ENDIF
  27.         UNTIL start<=0
  28.         as_Close(in)
  29.         FOR i:=0 TO 255
  30.             WriteF('$\h[02]: \d\n', i, counts[i]);
  31.         ENDFOR
  32.     ENDIF
  33.     FreeArgs(rdargs)
  34. ENDIF
  35.  
  36. ENDPROC
  37.